10 POKE53281,0:PRINT"[147]"
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"(1) [208]RINTER ROUTINE
40 [153]"(2) (null)OAD ROUTINE
50 PRINT"(3) [211]AVE ROUTINE
60 [161]A$:[139]A$[179]"1"[176]A$[177]"3"[167]60
70 F$[178]"TEST"
80 [145][197](A$)[141]400,500,600
90 [144]
397 :
398 :[143]  PRINTER ROUTINE
399 :
400 [159]4,4,7:[160]4
410 [139]ST[178]0[167][142]
420 [153]"(null)RINTER NOT ON - PRESS A KEY"
430 [161]A$:[139]A$[178]""[167]430
440 [142]
497 :
498 :[143]  LOAD ROUTINE
499 :
500 [141]1000:[139]FL[167][142]
510 [141]2000
520 [139]ER[179][177]63[167][153]ER;ER$;T;S:[142]
530 [153]"FILE LOADED"
540 [142]
597 :
598 :[143]  SAVE ROUTINE
599 :
600 [141]1000:[139]FL[167][142]
610 [141]2000
620 [139]ER[179]62[176]ER[177]63[167][153]ER;ER$;T;S:[142]
630 [139]ER[178]62[167]680
640 [153]ER$" - WANT TO REPLACE? (Y/N)"
650 [161]A$:[139]A$[178]""[167]650
660 [139]A$[179][177]"Y"[167][142]
670 [159]15,DV,15,"S:"[170]F$:[160]15
680 [158]57812F$,DV:[151]193,0:[151]194,8:[151]174,0:[151]175,40:[158]62954
690 [141]3000
700 [139]ER[167][153]ER;ER$;S;T:[142]
710 [153]"FILE SAVED"
720 [142]
997 :
998 :[143]  CHECK FOR DRIVE BEING ON
999 :
1000 FL[178]0:[159]15,DV,15:[160]15
1010 [139]ST[178][171]128[167][153]"STR$RIVE NOT ON":FL[178]1
1020 [142]
1997 :
1998 :[143]  CHECK FOR FILE EXISTING
1999 :
2000 [160]15:[159]15,DV,15,"R:"[170]F$[170]"="[170]F$
2010 [132]15,ER,ER$,T,S
2020 [160]15:[142]
2997 :
2998 :[143]  CHECK FOR SAVE ERROR
2999 :
3000 [160]15:[159]15,DV,15:[132]15,ER,ER$,S,T:[160]15:[142]